| Filename | (eval 394)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3] |
| Statements | Executed 25 statements in 190µs |
| Eval Invoked At | /Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 13µs | 63µs | JSON::Schema::Modern::Document::OpenAPI::_set_json_schema_dialect |
| 1 | 1 | 1 | 8µs | 20µs | JSON::Schema::Modern::Document::OpenAPI::BEGIN@7.254 |
| 1 | 1 | 1 | 6µs | 13µs | Method::Generate::Accessor::_Generated::BEGIN@39.256 |
| 1 | 1 | 1 | 3µs | 3µs | Method::Generate::Accessor::_Generated::BEGIN@12.255 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | { | ||||
| 2 | 2 | 1µs | my $coerce_for_json_5fschema_5fdialect = ${$_[1]->{"\$coerce_for_json_5fschema_5fdialect"}}; | ||
| 3 | 1 | 0s | my $isa_check_for_json_5fschema_5fdialect = ${$_[1]->{"\$isa_check_for_json_5fschema_5fdialect"}}; | ||
| 4 | 1 | 0s | my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; | ||
| 5 | 1 | 0s | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||
| 6 | package JSON::Schema::Modern::Document::OpenAPI; | ||||
| 7 | 2 | 32µs | 2 | 32µs | # spent 20µs (8+12) within JSON::Schema::Modern::Document::OpenAPI::BEGIN@7.254 which was called:
# once (8µs+12µs) by Sub::Quote::_clean_eval at line 7 # spent 20µs making 1 call to JSON::Schema::Modern::Document::OpenAPI::BEGIN@7.254
# spent 12µs making 1 call to warnings::unimport |
| 8 | # spent 63µs (13+50) within JSON::Schema::Modern::Document::OpenAPI::_set_json_schema_dialect which was called:
# once (13µs+50µs) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 127 of JSON/Schema/Modern/Document/OpenAPI.pm | ||||
| 9 | ($_QUOTED,$_UNQUOTED) if 0; | ||||
| 10 | # BEGIN quote_sub PRELUDE | ||||
| 11 | package Method::Generate::Accessor::_Generated; | ||||
| 12 | # spent 3µs within Method::Generate::Accessor::_Generated::BEGIN@12.255 which was called:
# once (3µs+0s) by Sub::Quote::_clean_eval at line 17 | ||||
| 13 | 1 | 1µs | $^H = 1762; | ||
| 14 | 1 | 0s | ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU"; | ||
| 15 | 1 | 2µs | %^H = ( | ||
| 16 | ); | ||||
| 17 | 1 | 57µs | 1 | 3µs | } # spent 3µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.255 |
| 18 | # END quote_sub PRELUDE | ||||
| 19 | 2 | 2µs | scalar do { my $value = do { | ||
| 20 | 1 | 2µs | local $Method::Generate::Accessor::CurrentAttribute = { | ||
| 21 | init_arg => undef(), | ||||
| 22 | name => "json_schema_dialect", | ||||
| 23 | step => "coercion", | ||||
| 24 | }; | ||||
| 25 | 1 | 1µs | (my $_return), | ||
| 26 | (my $_error), (my $_old_error = $@); | ||||
| 27 | 1 | 0s | (eval { | ||
| 28 | 1 | 3µs | 1 | 48µs | ($@ = $_old_error), # spent 48µs making 1 call to JSON::Schema::Modern::Document::OpenAPI::__ANON__[JSON/Schema/Modern/Document/OpenAPI.pm:56] |
| 29 | ($_return = | ||||
| 30 | $coerce_for_json_5fschema_5fdialect->($_[1])), | ||||
| 31 | 1 | ||||
| 32 | } or | ||||
| 33 | $_error = CORE::ref $@ ? $@ : "coercion for \"json_schema_dialect\" failed: ".$@); | ||||
| 34 | 1 | 0s | ($@ = $_old_error), | ||
| 35 | (defined $_error and CORE::die $_error); | ||||
| 36 | 1 | 0s | $_return; | ||
| 37 | } | ||||
| 38 | ; | ||||
| 39 | 4 | 84µs | 4 | 22µs | # spent 13µs (6+7) within Method::Generate::Accessor::_Generated::BEGIN@39.256 which was called:
# once (6µs+7µs) by Sub::Quote::_clean_eval at line 39 # spent 13µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@39.256
# spent 7µs making 1 call to warnings::unimport
# spent 1µs making 1 call to Scalar::Util::blessed
# spent 1µs making 1 call to UNIVERSAL::isa |
| 40 | ($_[0]->{"json_schema_dialect"} = $value), | ||||
| 41 | 1 | 1µs | ($_[0]->{"json_schema_dialect"}), | ||
| 42 | } } | ||||
| 43 | 1 | 0s | $$_UNQUOTED = \&_set_json_schema_dialect; | ||
| 44 | } | ||||
| 45 | 1 | 4µs | 1; | ||
| 46 | |||||
| 47 | ; |